﻿Public Class frmPostFile

    Private Sub frmPostFile_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.EFlex1.Styles.Alternate.BackColor = Color.FromArgb(216, 228, 248)
        cmbNumber.SelectedIndex = 5
        cmbGroups.SelectedIndex = 0
        cmbAverageTime.SelectedIndex = 0
        cmbReceptor.SelectedIndex = 0
        cmbConcept.SelectedIndex = 0

        EFlex1.AllowSorting = C1.Win.C1FlexGrid.AllowSortingEnum.None
        EFlex1.AllowResizing = C1.Win.C1FlexGrid.AllowResizingEnum.Columns
        EFlex1.AllowDragging = C1.Win.C1FlexGrid.AllowDraggingEnum.None

    End Sub

    ''' <summary>
    ''' 超标率和超标时间
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub ShowResult()
        'If Me.cmbGroups.SelectedIndex < 0 Or Me.cmbAverageTime.SelectedIndex < 0 Or Me.cmbPollution.SelectedIndex < 0 Then
        '    Exit Sub
        'End If
        'If AermodProject0.Aermod.Source.Groups.ArrayGroup(Me.cmbGroups.SelectedIndex).IsHoursOver = False And cmbAverageTime.Text = "1h" Then
        '    EFlex1.Rows.Count = 0
        '    EFlex1.Cols.Count = 0
        '    Exit Sub
        'ElseIf AermodProject0.Aermod.Source.Groups.ArrayGroup(Me.cmbGroups.SelectedIndex).IsDayOver = False And cmbAverageTime.Text = "24h" Then
        '    EFlex1.Rows.Count = 0
        '    EFlex1.Cols.Count = 0
        '    Exit Sub
        'End If
        'Try
        '    Dim myFrmMain As frmMain = My.Application.ApplicationContext.MainForm
        '    Dim iIndexPollution As Integer = cmbPollution.SelectedIndex
        '    Dim jIndexAverageTime As Integer = cmbAverageTime.SelectedIndex
        '    Dim nGroup As Integer = cmbGroups.SelectedIndex
        '    EFlex1.Clear()
        '    EFlex1.Rows.Count = 1
        '    '设置列数及行标题
        '    EFlex1.Cols.Count = 15
        '    EFlex1.AllowSorting = C1.Win.C1FlexGrid.AllowSortingEnum.None
        '    EFlex1.AllowResizing = C1.Win.C1FlexGrid.AllowResizingEnum.Columns
        '    EFlex1.AllowDragging = C1.Win.C1FlexGrid.AllowDraggingEnum.None
        '    EFlex1.AllowMerging = C1.Win.C1FlexGrid.AllowMergingEnum.Free
        '    For i As Integer = 0 To 2
        '        Me.EFlex1.Cols(i).AllowMerging = True
        '    Next
        '    Select Case cmbReceptor.SelectedIndex
        '        Case 0 '关心点
        '            Label1.Visible = False
        '            cmbConcept.Visible = False
        '            Label2.Visible = False
        '            txtGrid.Visible = False
        '            cmbGrid.Visible = False

        '            EFlex1.SetData(0, 0, "序号")
        '            EFlex1.SetData(0, 1, "污染物名称")
        '            EFlex1.SetData(0, 2, "关心点")
        '            EFlex1.SetData(0, 3, "坐标[x,y]")
        '            EFlex1.SetData(0, 4, "平均时间")
        '            EFlex1.SetData(0, 5, "标准值[mg/m^3]")
        '            EFlex1.SetData(0, 6, "背景浓度[mg/m^3]")
        '            EFlex1.SetData(0, 7, "超标次数")
        '            EFlex1.SetData(0, 8, "超标率[%]")
        '            EFlex1.SetData(0, 9, "最大持续超标时间范围")

        '            EFlex1.AutoSizeCols()
        '            If iIndexPollution >= 0 And jIndexAverageTime >= 0 Then
        '                '获取数据
        '                If iIndexPollution >= 0 AndAlso jIndexAverageTime >= 0 AndAlso nGroup >= 0 Then
        '                    '设置表格的行数=（关心点个数+1）*输出的最大浓度的个数
        '                    For j As Integer = 0 To AermodProject0.Aermod.Receptor.DiscCarts.Length - 1
        '                        EFlex1.Rows.Count += 1
        '                        EFlex1.SetData(j + 1, 0, j + 1)
        '                        EFlex1.SetData(j + 1, 1, cmbPollution.Text)
        '                        EFlex1.SetData(j + 1, 2, AermodProject0.Aermod.Receptor.DiscCarts(j).Name)
        '                        EFlex1.SetData(j + 1, 3, AermodProject0.Aermod.Receptor.DiscCarts(j).Xcoord & "," & AermodProject0.Aermod.Receptor.DiscCarts(j).Ycoord)
        '                        EFlex1.SetData(j + 1, 4, cmbAverageTime.Text)
        '                        '标准浓度和背景浓度
        '                        Dim Post As CAermod.PostResult = AermodProject0.Aermod.AermodResultsPollute(iIndexPollution).ResultGroups(nGroup).PostResult

        '                        If cmbAverageTime.Text = "1h" Then
        '                            'EFlex1.SetData(j + 1, 6, FormatNumber(Post.CareSuperScale1h(j).BackCon, Me.cmbNumber.SelectedIndex)) '浓度背景值。取最大值
        '                            'If AermodProject0.Aermod.Control.AllPolluts.AllSelectPollut(iIndexPollution).ConStandard.HourValue = 0 Then
        '                            '    EFlex1.SetData(j + 1, 5, "-") '浓度背景值。取最大值
        '                            '    EFlex1.SetData(j + 1, 7, "-") '超标次数
        '                            '    EFlex1.SetData(j + 1, 8, "-") '超标率
        '                            'Else
        '                            '    EFlex1.SetData(j + 1, 5, FormatNumber(AermodProject0.Aermod.Control.AllPolluts.AllSelectPollut(iIndexPollution).ConStandard.HourValue, Me.cmbNumber.SelectedIndex)) '浓度背景值。取最大值
        '                            '    EFlex1.SetData(j + 1, 7, Post.CareSuperScale1h(j).SuperCount) '超标次数
        '                            '    EFlex1.SetData(j + 1, 8, FormatNumber(Post.CareSuperScale1h(j).SuperRate * 100, Me.cmbNumber.SelectedIndex)) '超标率
        '                            '    If Post.CareSuperScale1h(j).MaxOverTime.nTime > 0 Then
        '                            '        EFlex1.SetData(j + 1, 9, Post.CareSuperScale1h(j).MaxOverTime.nTime & "小时[" & Post.CareSuperScale1h(j).MaxOverTime.StartTime & "," & Post.CareSuperScale1h(j).MaxOverTime.EndTime & "]") '时间
        '                            '    End If

        '                            'End If


        '                        ElseIf cmbAverageTime.Text = "24h" Then

        '                            'EFlex1.SetData(j + 1, 6, FormatNumber(Post.CareSuperScale24h(j).BackCon, Me.cmbNumber.SelectedIndex)) '浓度背景值。取最大值
        '                            'If AermodProject0.Aermod.Control.AllPolluts.AllSelectPollut(iIndexPollution).ConStandard.DayValue = 0 Then
        '                            '    EFlex1.SetData(j + 1, 5, "-") '浓度背景值。取最大值
        '                            '    EFlex1.SetData(j + 1, 7, "-") '超标次数
        '                            '    EFlex1.SetData(j + 1, 8, "-") '超标率
        '                            'Else
        '                            '    EFlex1.SetData(j + 1, 5, FormatNumber(AermodProject0.Aermod.Control.AllPolluts.AllSelectPollut(iIndexPollution).ConStandard.DayValue, Me.cmbNumber.SelectedIndex)) '浓度背景值。取最大值
        '                            '    EFlex1.SetData(j + 1, 7, Post.CareSuperScale24h(j).SuperCount) '超标次数
        '                            '    EFlex1.SetData(j + 1, 8, FormatNumber(Post.CareSuperScale24h(j).SuperRate * 100, Me.cmbNumber.SelectedIndex)) '超标率
        '                            '    If Post.CareSuperScale24h(j).MaxOverTime.nTime > 0 Then
        '                            '        EFlex1.SetData(j + 1, 9, Post.CareSuperScale24h(j).MaxOverTime.nTime & "天[" & Post.CareSuperScale24h(j).MaxOverTime.StartTime & "," & Post.CareSuperScale24h(j).MaxOverTime.EndTime & "]") '时间
        '                            '    End If
        '                            'End If
        '                        End If
        '                    Next
        '                End If
        '            End If
        '        Case 1 '网格点
        '            EFlex1.AllowMerging = C1.Win.C1FlexGrid.AllowMergingEnum.None

        '            Label1.Visible = True
        '            cmbConcept.Visible = True
        '            Label2.Visible = True
        '            txtGrid.Visible = True
        '            cmbGrid.Visible = True

        '            EFlex1.SetData(0, 0, "Y\X")
        '            EFlex1.Rows.Count = AermodProject0.Aermod.Receptor.SubGridCart(0).Ynum + 1
        '            EFlex1.Cols.Count = AermodProject0.Aermod.Receptor.SubGridCart(0).Xnum + 1
        '            For i As Integer = 0 To AermodProject0.Aermod.Receptor.SubGridCart(0).Ynum - 1
        '                EFlex1.SetData(AermodProject0.Aermod.Receptor.SubGridCart(0).Ynum - i, 0, AermodProject0.Aermod.Receptor.SubGridCart(0).Yinit + i * AermodProject0.Aermod.Receptor.SubGridCart(0).Ydelta)
        '            Next
        '            For i As Integer = 0 To AermodProject0.Aermod.Receptor.SubGridCart(0).Xnum - 1
        '                EFlex1.SetData(0, i + 1, AermodProject0.Aermod.Receptor.SubGridCart(0).Xinit + i * AermodProject0.Aermod.Receptor.SubGridCart(0).Xdelta)
        '            Next

        '            '标准浓度和背景浓度
        '            Dim MaxBack As Double
        '            If cmbAverageTime.Text = "1h" Then
        '                'MaxBack = AermodProject0.Aermod.Receptor.RegionAeravageBackCon.NameAndBackCon(iIndexPollution).AervageHourCon

        '                'If AermodProject0.Aermod.Control.AllPolluts.AllSelectPollut(iIndexPollution).ConStandard.HourValue = 0 Then
        '                '    Label2.Text = "没有浓度标准值," & "背景浓度为" & MaxBack & "mg/m^3"
        '                '    For i As Integer = 0 To AermodProject0.Aermod.Receptor.SubGridCart(0).Ynum - 1
        '                '        For j As Integer = 0 To AermodProject0.Aermod.Receptor.SubGridCart(0).Xnum - 1
        '                '            EFlex1.SetData(i + 1, j + 1, "-")
        '                '        Next
        '                '    Next
        '                'Else
        '                '    Label2.Text = "浓度标准值为" & AermodProject0.Aermod.Control.AllPolluts.AllSelectPollut(iIndexPollution).ConStandard.HourValue & "mg/m^3,背景浓度为" & MaxBack & "mg/m^3"
        '                '    If Me.cmbGrid.Text = "主网格" Then
        '                '        EFlex1.SetData(0, 0, "Y\X")
        '                '        EFlex1.Rows.Count = AermodProject0.Aermod.Receptor.SubGridCart(0).Ynum + 1
        '                '        EFlex1.Cols.Count = AermodProject0.Aermod.Receptor.SubGridCart(0).Xnum + 1
        '                '        For i As Integer = 0 To AermodProject0.Aermod.Receptor.SubGridCart(0).Ynum - 1
        '                '            EFlex1.SetData(AermodProject0.Aermod.Receptor.SubGridCart(0).Ynum - i, 0, AermodProject0.Aermod.Receptor.SubGridCart(0).Yinit + i * AermodProject0.Aermod.Receptor.SubGridCart(0).Ydelta)
        '                '        Next
        '                '        For i As Integer = 0 To AermodProject0.Aermod.Receptor.SubGridCart(0).Xnum - 1
        '                '            EFlex1.SetData(0, i + 1, AermodProject0.Aermod.Receptor.SubGridCart(0).Xinit + i * AermodProject0.Aermod.Receptor.SubGridCart(0).Xdelta)
        '                '        Next
        '                '        For i As Integer = 0 To AermodProject0.Aermod.Receptor.SubGridCart(0).Ynum - 1
        '                '            For j As Integer = 0 To AermodProject0.Aermod.Receptor.SubGridCart(0).Xnum - 1
        '                '                Dim Post As CAermod.PostResult = AermodProject0.Aermod.AermodResultsPollute(iIndexPollution).ResultGroups(nGroup).PostResult
        '                '                If cmbConcept.SelectedIndex = 0 Then '超标次数
        '                '                    EFlex1.SetData(i + 1, j + 1, Post.GridSuperScale1(i, j).SuperCount) '时间
        '                '                ElseIf cmbConcept.SelectedIndex = 1 Then '超标率
        '                '                    EFlex1.SetData(i + 1, j + 1, FormatNumber(Post.GridSuperScale1(i, j).SuperRate * 100, Me.cmbNumber.SelectedIndex))
        '                '                ElseIf cmbConcept.SelectedIndex = 2 Then '最大持续超标时间
        '                '                    If Post.GridSuperScale1(i, j).MaxOverTime.nTime > 0 Then
        '                '                        EFlex1.SetData(i + 1, j + 1, Post.GridSuperScale1(i, j).MaxOverTime.nTime & "小时[" & Post.GridSuperScale1(i, j).MaxOverTime.StartTime & "," & Post.GridSuperScale1(i, j).MaxOverTime.EndTime & "]") '时间
        '                '                    End If
        '                '                End If
        '                '            Next
        '                '        Next
        '                '    Else
        '                '        Dim nIndex As Integer = Me.cmbGrid.SelectedIndex
        '                '        EFlex1.SetData(0, 0, "Y\X")
        '                '        EFlex1.Rows.Count = AermodProject0.Aermod.Receptor.SubGridCart(nIndex - 1).Ynum + 1
        '                '        EFlex1.Cols.Count = AermodProject0.Aermod.Receptor.SubGridCart(nIndex - 1).Xnum + 1
        '                '        For i As Integer = 0 To AermodProject0.Aermod.Receptor.SubGridCart(nIndex - 1).Ynum - 1
        '                '            EFlex1.SetData(AermodProject0.Aermod.Receptor.SubGridCart(nIndex - 1).Ynum - i, 0, AermodProject0.Aermod.Receptor.SubGridCart(nIndex - 1).Yinit + i * AermodProject0.Aermod.Receptor.SubGridCart(nIndex - 1).Ydelta)
        '                '        Next
        '                '        For i As Integer = 0 To AermodProject0.Aermod.Receptor.SubGridCart(nIndex - 1).Xnum - 1
        '                '            EFlex1.SetData(0, i + 1, AermodProject0.Aermod.Receptor.SubGridCart(nIndex - 1).Xinit + i * AermodProject0.Aermod.Receptor.SubGridCart(nIndex - 1).Xdelta)
        '                '        Next
        '                '        For i As Integer = 0 To AermodProject0.Aermod.Receptor.SubGridCart(nIndex - 1).Ynum - 1
        '                '            For j As Integer = 0 To AermodProject0.Aermod.Receptor.SubGridCart(nIndex - 1).Xnum - 1
        '                '                Dim Post As CAermod.PostResult = AermodProject0.Aermod.AermodResultsPollute(iIndexPollution).ResultGroups(nGroup).PostResult
        '                '                If cmbConcept.SelectedIndex = 0 Then '超标次数
        '                '                    EFlex1.SetData(i + 1, j + 1, Post.SubGridSuperScale1(nIndex - 1)(i, j).SuperCount) '时间
        '                '                ElseIf cmbConcept.SelectedIndex = 1 Then '超标率
        '                '                    EFlex1.SetData(i + 1, j + 1, FormatNumber(Post.SubGridSuperScale1(nIndex - 1)(i, j).SuperRate * 100, Me.cmbNumber.SelectedIndex))
        '                '                ElseIf cmbConcept.SelectedIndex = 2 Then '最大持续超标时间
        '                '                    If Post.GridSuperScale1(i, j).MaxOverTime.nTime > 0 Then
        '                '                        EFlex1.SetData(i + 1, j + 1, Post.SubGridSuperScale1(nIndex - 1)(i, j).MaxOverTime.nTime & "小时[" & Post.SubGridSuperScale1(nIndex - 1)(i, j).MaxOverTime.StartTime & "," & Post.SubGridSuperScale1(nIndex - 1)(i, j).MaxOverTime.EndTime & "]") '时间
        '                '                    End If
        '                '                End If
        '                '            Next
        '                '        Next
        '                '    End If
        '                'End If
        '            ElseIf cmbAverageTime.Text = "24h" Then

        '                'MaxBack = AermodProject0.Aermod.Receptor.RegionAeravageBackCon.NameAndBackCon(iIndexPollution).AervageDayCon

        '                'If AermodProject0.Aermod.Control.AllPolluts.AllSelectPollut(iIndexPollution).ConStandard.DayValue = 0 Then
        '                '    Label2.Text = "没有浓度标准值," & "背景浓度为" & MaxBack & "mg/m^3"
        '                '    For i As Integer = 0 To AermodProject0.Aermod.Receptor.SubGridCart(0).Ynum - 1
        '                '        For j As Integer = 0 To AermodProject0.Aermod.Receptor.SubGridCart(0).Xnum - 1
        '                '            EFlex1.SetData(i + 1, j + 1, "-")
        '                '        Next
        '                '    Next
        '                'Else
        '                '    Label2.Text = "浓度标准值为" & AermodProject0.Aermod.Control.AllPolluts.AllSelectPollut(iIndexPollution).ConStandard.DayValue & "mg/m^3,背景浓度为" & MaxBack & "mg/m^3"
        '                '    If Me.cmbGrid.Text = "主网格" Then
        '                '        EFlex1.SetData(0, 0, "Y\X")
        '                '        EFlex1.Rows.Count = AermodProject0.Aermod.Receptor.SubGridCart(0).Ynum + 1
        '                '        EFlex1.Cols.Count = AermodProject0.Aermod.Receptor.SubGridCart(0).Xnum + 1
        '                '        For i As Integer = 0 To AermodProject0.Aermod.Receptor.SubGridCart(0).Ynum - 1
        '                '            EFlex1.SetData(AermodProject0.Aermod.Receptor.SubGridCart(0).Ynum - i, 0, AermodProject0.Aermod.Receptor.SubGridCart(0).Yinit + i * AermodProject0.Aermod.Receptor.SubGridCart(0).Ydelta)
        '                '        Next
        '                '        For i As Integer = 0 To AermodProject0.Aermod.Receptor.SubGridCart(0).Xnum - 1
        '                '            EFlex1.SetData(0, i + 1, AermodProject0.Aermod.Receptor.SubGridCart(0).Xinit + i * AermodProject0.Aermod.Receptor.SubGridCart(0).Xdelta)
        '                '        Next
        '                '        For i As Integer = 0 To AermodProject0.Aermod.Receptor.SubGridCart(0).Ynum - 1
        '                '            For j As Integer = 0 To AermodProject0.Aermod.Receptor.SubGridCart(0).Xnum - 1
        '                '                Dim Post As CAermod.PostResult = AermodProject0.Aermod.AermodResultsPollute(iIndexPollution).ResultGroups(nGroup).PostResult
        '                '                If cmbConcept.SelectedIndex = 0 Then '超标次数
        '                '                    EFlex1.SetData(i + 1, j + 1, Post.GridSuperScale24(i, j).SuperCount) '时间
        '                '                ElseIf cmbConcept.SelectedIndex = 1 Then '超标率
        '                '                    EFlex1.SetData(i + 1, j + 1, FormatNumber(Post.GridSuperScale24(i, j).SuperRate * 100, Me.cmbNumber.SelectedIndex))
        '                '                ElseIf cmbConcept.SelectedIndex = 2 Then '最大持续超标时间
        '                '                    If Post.GridSuperScale24(i, j).MaxOverTime.nTime > 0 Then
        '                '                        EFlex1.SetData(i + 1, j + 1, Post.GridSuperScale24(i, j).MaxOverTime.nTime & "天[" & Post.GridSuperScale24(i, j).MaxOverTime.StartTime & "," & Post.GridSuperScale24(i, j).MaxOverTime.EndTime & "]") '时间
        '                '                    End If
        '                '                End If
        '                '            Next
        '                '        Next

        '                '    Else
        '                '        Dim nIndex As Integer = Me.cmbGrid.SelectedIndex
        '                '        EFlex1.SetData(0, 0, "Y\X")
        '                '        EFlex1.Rows.Count = AermodProject0.Aermod.Receptor.SubGridCart(nIndex - 1).Ynum + 1
        '                '        EFlex1.Cols.Count = AermodProject0.Aermod.Receptor.SubGridCart(nIndex - 1).Xnum + 1
        '                '        For i As Integer = 0 To AermodProject0.Aermod.Receptor.SubGridCart(nIndex - 1).Ynum - 1
        '                '            EFlex1.SetData(AermodProject0.Aermod.Receptor.SubGridCart(nIndex - 1).Ynum - i, 0, AermodProject0.Aermod.Receptor.SubGridCart(nIndex - 1).Yinit + i * AermodProject0.Aermod.Receptor.SubGridCart(nIndex - 1).Ydelta)
        '                '        Next
        '                '        For i As Integer = 0 To AermodProject0.Aermod.Receptor.SubGridCart(nIndex - 1).Xnum - 1
        '                '            EFlex1.SetData(0, i + 1, AermodProject0.Aermod.Receptor.SubGridCart(nIndex - 1).Xinit + i * AermodProject0.Aermod.Receptor.SubGridCart(nIndex - 1).Xdelta)
        '                '        Next
        '                '        For i As Integer = 0 To AermodProject0.Aermod.Receptor.SubGridCart(nIndex - 1).Ynum - 1
        '                '            For j As Integer = 0 To AermodProject0.Aermod.Receptor.SubGridCart(nIndex - 1).Xnum - 1
        '                '                Dim Post As CAermod.PostResult = AermodProject0.Aermod.AermodResultsPollute(iIndexPollution).ResultGroups(nGroup).PostResult
        '                '                If cmbConcept.SelectedIndex = 0 Then '超标次数
        '                '                    EFlex1.SetData(i + 1, j + 1, Post.SubGridSuperScale24(nIndex - 1)(i, j).SuperCount) '时间
        '                '                ElseIf cmbConcept.SelectedIndex = 1 Then '超标率
        '                '                    EFlex1.SetData(i + 1, j + 1, FormatNumber(Post.SubGridSuperScale24(nIndex - 1)(i, j).SuperRate * 100, Me.cmbNumber.SelectedIndex))
        '                '                ElseIf cmbConcept.SelectedIndex = 2 Then '最大持续超标时间
        '                '                    If Post.GridSuperScale1(i, j).MaxOverTime.nTime > 0 Then
        '                '                        EFlex1.SetData(i + 1, j + 1, Post.SubGridSuperScale24(nIndex - 1)(i, j).MaxOverTime.nTime & "小时[" & Post.SubGridSuperScale24(nIndex - 1)(i, j).MaxOverTime.StartTime & "," & Post.SubGridSuperScale24(nIndex - 1)(i, j).MaxOverTime.EndTime & "]") '时间
        '                '                    End If
        '                '                End If
        '                '            Next
        '                '        Next
        '                '    End If
        '                'End If

        '            End If
        '    End Select

        '    EFlex1.AutoSizeCols()
        '    ''GIS绘图-----------------------------------
        'Catch ex As Exception

        'End Try

    End Sub
    Private Sub cmbPollution_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbPollution.SelectedIndexChanged
        ShowResult()
    End Sub

    Private Sub cmbAverageTime_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbAverageTime.SelectedIndexChanged
        ShowResult()
    End Sub
    Private Sub cmbGroups_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbGroups.SelectedIndexChanged
        If cmbGroups.SelectedIndex >= 0 Then
            ShowResult()
        End If
    End Sub
    Private Sub cmbNumber_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbNumber.SelectedIndexChanged
        ShowResult()
    End Sub

    Private Sub cmbReceptor_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbReceptor.SelectedIndexChanged
        If cmbReceptor.SelectedIndex >= 0 Then
            ShowResult()
        End If
    End Sub

    Private Sub cmbConcept_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbConcept.SelectedIndexChanged
        If cmbConcept.SelectedIndex >= 0 Then
            ShowResult()

        End If
    End Sub

    Private Sub cmbPollution_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbPollution.Click

    End Sub

    Private Sub cmbGroups_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbGroups.Click
        
    End Sub

    Private Sub cmbGrid_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbGrid.SelectedIndexChanged
        If cmbGrid.SelectedIndex >= 0 Then
            ShowResult()
        End If

    End Sub
End Class